home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / card - girl (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  158 lines
  1. 5 poke53248+21,0
  2. 10 bo=53280:ba=53281:sc=1024:cc=55296:x=156:x1=4:v=53248:s=54272:mu=-1
  3. 15 dimvh(25),vl(25),vd(25),uh(21),ul(21),ud(21),wh(21),wl(21),wd(21)
  4. 20 pokebo,4:pokeba,1:print"[147][144]";
  5. 25 fort=1to8:reada(t):next
  6. 30 fort=1to25:readvh(t),vl(t),vd(t):next
  7. 35 fort=1to19:readuh(t),ul(t),ud(t):next
  8. 40 fort=1to21:readwh(t),wl(t),wd(t):next
  9. 45 fort=12288to12798:reada:poket,a:next
  10. 50 print"[147]        touch any key, darling"
  11. 55 geta$:ifa$=""then55
  12. 60 pokev+21,195
  13. 65 fort=0to7:poke2040+t,192+t:next
  14. 70 fort=0to10step2:pokev+t,172:next
  15. 75 pokev+12,75:pokev+14,255:pokev+8,161
  16. 80 pokev+1,191:pokev+3,210:pokev+5,210:pokev+7,191:pokev+9,171
  17. 85 pokev+11,191:pokev+13,100:pokev+15,190
  18. 90 pokev+28,63:pokev+37,0:pokev+38,7
  19. 95 fort=39to44:pokev+t,2:next
  20. 100 pokev+45,15:pokev+46,15:pokev+29,16
  21. 105 pokev+39,2:pokevv+40,2:pokev+41,2:pokev+42,2:pokev+43,14:pokev+44,2
  22. 110 pokev+45,12:pokev+46,12
  23. 115 gosub340:gosub140:gosub210
  24. 120 gosub60000
  25. 125 pokebo,6:pokeba,3:print"[147]"
  26. 130 x=154:x1=14:gosub340
  27. 135 return
  28. 140 print"";
  29. 145 print,"[154][157][157] [166]     [166]  ",,;
  30. 150 print,,"[157] [166]   [166]    [166][166][166]    [166]   [166]"
  31. 155 print,"[157]  [166] [166]    [166]   [166]   [166]   [166]";
  32. 160 print,"[157]   [166]     [166]   [166]   [166]   [166]"
  33. 165 print,"[157]   [166]     [166]   [166]   [166]   [166]";
  34. 170 print,"[157]   [166]      [166][166][166]     [166][166][166]"
  35. 175 print,"[152]   deserve the best"
  36. 180 print,,"[158] [162] "                                                       
  37. 185 print,,"[157][169][146][169][169][146][169]",,;
  38. 190 print,,"[157][157][169][146][169][169][146][169]"
  39. 195 print,,"[157][157] [184] "
  40. 200 print,,"[156][157][157][157][157]can  give"
  41. 205 return
  42. 210 fort=stos+24:poket,0:next
  43. 215 pokes+24,15:pokes+5,66:pokes+12,66:pokes+19,66
  44. 220 pokes+6,130:pokes+13,130:pokes+20,130
  45. 225 q=1:y=1:z=1
  46. 230 vd(q)=vd(q)-1:ifvd(q)=0thenpokes+4,16:q=q+1
  47. 235 ud(y)=ud(y)-1:ifud(y)=0thenpokes+11,16:y=y+1
  48. 240 wd(z)=wd(z)-1:ifwd(z)=0thenpokes+18,16:z=z+1
  49. 245 mu=-mu:poke2046,peek(2046)+mu:poke2047,peek(2047)-mu
  50. 250 fort=1to30:next
  51. 255 pokes,vl(q):pokes+1,vh(q)
  52. 260 pokes+7,ul(y):pokes+8,uh(y)
  53. 265 pokes+14,wl(z):pokes+15,wh(z)
  54. 270 pokes+4,17:pokes+11,17:pokes+18,17
  55. 275 ifq=25then310
  56. 280 ifq=20thengosub305
  57. 285 ifq=19thengosub295
  58. 290 fort=1to100:next:goto230
  59. 295 k=k+1:ifk<4thenreturn
  60. 300 gosub125:return
  61. 305 pokev+21,220:return
  62. 310 print"[151]","you're my perfect ten"
  63. 315 print,"       mark  ":rem  your sweetheart's name here
  64. 320 pokev+21,252
  65. 325 fort=150to0step-1:pokes+24,t/10:pokev+11,t:fori=1to10:next:next
  66. 330 print,,"     love,",,,"   sherry":rem your name here
  67. 335 return
  68. 340 printchr$(x)"  [211]    [211]    [211]    [211]    [211]    [211]    [211]    [211]  [146]";
  69. 345 fort=1to23:print"  [211]  ",,,"[146]      [211]  ";:next
  70. 350 print"  [211]    [211]    [211]    [211]    [211]    [211]    [211]    [211] "
  71. 351 poke1024+((40*24)+39),160:poke55296+((40*24)+39),4
  72. 355 fort=1to8step2:pokesc+a(t),a(t+1):pokecc+a(t),0:next
  73. 360 pokesc+999,160:pokecc+999,x1:return
  74. 365 data45,105,74,95,925,223,954,233
  75. 370 rem music data
  76. 375 data50,60,2,50,60,1,56,99,2,50,60,2,67,15,2,63,75,4,50,60,1,50,60,1
  77. 380 data56,99,2,50,60,2,75,69,2,67,15,4,50,60,1,50,60,1,100
  78. 385 data121,2,84,125,2,67,15,2,63,75,2,56,99,4,89,131,1,89,131
  79. 390 data1,84,125,2,67,15,2,75,69,2,67,15,6
  80. 395 data0,0,2,0,0,1,42,62,4,50,60,6,42,62,1,37,162,1,25,30,4,37,162,1,63,75,1
  81. 400 data50,60,6,84,125,2,67,15,2,50,60,2,44,193,4,44,193,4
  82. 405 data67,15,2,50,60,2,63,75,2,50,60,6,0,0,2,0,0,1,8,97
  83. 410 data4,6,167,2,6,71,4,4,180,2,6,71,4,4,180,2,4,48,2,8,97,2
  84. 415 data6,71,2,8,97,4,10,143,2,11,48,2,5,152,4,5,71,1,4,180,1,4,48,4
  85. 420 data6,71,2,8,97,2,4,48,4
  86. 425 rem girl sprite data
  87. 430 data000,252,240,003,255,252,015,255
  88. 435 data252,015,247,252,063,253,255,063
  89. 440 data247,255,255,253,255,255,255,255
  90. 445 data255,243,255,245,085,087,255,084
  91. 450 data087,255,084,087,255,020,023,255
  92. 455 data020,023,255,000,003,255,002,131
  93. 460 data255,010,163,255,194,131,255,192
  94. 465 data015,255,213,127,255,192,063,060
  95. 470 data254,255,239,250,191,235,250,191
  96. 475 data234,250,175,234,250,171,234,012
  97. 480 data171,163,012,170,163,012,042,163
  98. 485 data012,042,131,015,010,003,003,250
  99. 490 data015,085,085,085,000,170,160,000
  100. 495 data170,160,002,170,168,002,170,168
  101. 500 data000,106,064,000,016,064,000,016
  102. 505 data064,000,016,064,000,168,168,002
  103. 510 data160,063,010,170,063,042,042,063
  104. 515 data042,010,191,168,010,191,160,002
  105. 520 data174,160,000,170,128,000,170,128
  106. 525 data000,042,000,000,042,000,000,042
  107. 530 data000,000,170,128,002,170,160,002
  108. 535 data170,160,010,170,168,010,170,168
  109. 540 data000,016,064,000,016,064,000,016
  110. 545 data064,000,016,064,000,168,168,002
  111. 550 data240,051,015,243,255,027,243,255
  112. 555 data207,243,223,207,243,247,207,243
  113. 560 data223,207,243,247,207,243,255,207
  114. 565 data243,207,207,253,085,095,253,081
  115. 570 data095,253,081,095,252,080,095,252
  116. 575 data080,095,252,000,015,252,010,015
  117. 580 data252,042,143,255,010,015,171,000
  118. 585 data042,171,085,106,171,255,234,060
  119. 590 data085,085,085,085,085,085,106,170
  120. 595 data169,104,160,009,096,160,009,096
  121. 600 data162,137,104,162,137,104,162,137
  122. 605 data104,162,137,104,162,137,104,162
  123. 610 data137,104,162,137,104,162,137,104
  124. 615 data162,137,104,162,137,104,162,137
  125. 620 data096,032,009,096,032,009,106,170
  126. 625 data169,085,215,085,087,215,213,000
  127. 630 data000,000,000,000,000,000,000,000
  128. 635 data042,000,128,032,138,138,160,136
  129. 640 data136,042,168,136,002,160,138,130
  130. 645 data160,128,170,168,128,128,136,010
  131. 650 data128,138,000,000,000,032,032,000
  132. 655 data168,168,010,170,170,042,170,170
  133. 660 data170,170,168,042,168,010,010,170
  134. 665 data010,002,170,168,000,170,160,006
  135. 670 data000,000,000,000,000,000,000,000
  136. 675 data000,000,003,224,000,063,224,003
  137. 680 data255,224,003,255,224,003,252,032
  138. 685 data003,192,032,002,000,032,002,000
  139. 690 data032,002,000,032,002,007,160,002
  140. 695 data015,224,122,015,224,254,015,192
  141. 700 data254,007,128,252,000,000,120,000
  142. 705 data000,000,000,000,000,000,000,000
  143. 710 data000,000,000,000,000,000,000,000
  144. 715 data000,000,000,000,000,062,000,000
  145. 720 data063,240,000,063,255,000,063,255
  146. 725 data000,035,255,000,032,062,000,064
  147. 730 data002,000,064,002,000,064,002,015
  148. 735 data064,004,031,192,004,031,192,244
  149. 740 data031,129,252,015,001,252,000,001
  150. 745 data248,000,000,240,000,000,000,000
  151. 60000 fordl=1to5000:next:pokev+21,0
  152. 60010 print"[147][144]want to run it again[160]<y/n>?";
  153. 60020 poke198,0:wait198,1:getk$
  154. 60030 ifk$<>"n"andk$<>"y"thenpoke53280,rnd(1)*15:goto60020
  155. 60040 ifk$="y"thenrun
  156. 60050 print"[147]load"chr$(34)"c.payload"chr$(34)",8":print"run"
  157. 60060 poke631,13:poke632,13:poke198,2:end
  158.